home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1185.arc / CROSSTH1.LTG < prev    next >
Text File  |  1986-02-27  |  1KB  |  41 lines
  1.  
  2.  
  3.                           Listinτáá 1«áá 
  4. PP╠á codσá fo≥á functioεá t∩á calculatσá relativσá timσáá anΣ ì
  5. effectivenes≤ fo≥ summation≤ calculateΣ concurrently.
  6.  
  7.  
  8. FUNCTIO╬ Relative_Time(Array_Size¼ Number_CP╒ ║ integer⌐ returε integer
  9.  
  10. BEGIN
  11.     INITIALIZ┼ ║ Coun⌠ ╜ 0
  12.     LOO╨ <Outer>
  13.     BEGIN
  14.         INITIALIZE║ None
  15.         LOO╨ <Inner>
  16.         BEGIN
  17.             Size_of_Se⌠ ╜ Array_Sizσ di÷ Number_CPU
  18.             Remainde≥ ╜  Array_Sizσ moΣ Number_CPU
  19.             I╞ (Size_of_Se⌠ ╛ 1⌐ O╥ (╨ ╜ 1⌐ THE╬ EXI╘ <Inner╛ EN─ IF
  20.             Number_CP╒ -╜ ▒ -- neeΣ onσ les≤ processor
  21.         EN─ LOO╨ <Inner>
  22.         TERMINATE║ None
  23.         Coun⌠ +╜ Size_of_Se⌠ - 1
  24.         -- Ge⌠ tota∞ numbe≥ oµ elemen⌠ t∩ bσ processeΣ oε thσ nex⌠ round
  25.         Array_Sizσ ╜ Number_CP╒ ½ Remainde≥ 
  26.         -- NeeΣ onσ morσ adiitoε anΣ theε exit
  27.         I╞ Array_Sizσ ╜ ▓  THE╬ Coun⌠ +╜ 1╗ EXI╘ <Outer╛ EN─ IF
  28.         I╞ Number_CP╒ ╜ ▒ THE╬ EXI╘ <Outer╛ EN─ IF
  29.     EN─ LOO╨ <Outer>
  30.     RETUR╬ ¿ Coun⌠ )
  31. EN─ Relative_Time
  32.  
  33. FUNCTIO╬ Effectiveness(Array_Size¼ Number_CP╒ ║ integer⌐ returε real
  34.  
  35. BEGIN
  36.     Speed_Up_Facto≥ ╜   Relative_Time(Array_Size¼ 1⌐ 
  37.                       » Relative_Time(Array_Size¼ Number_CPU)
  38.     Efficienc∙ ╜ Speed_Up_Facto≥ » Number_CPU
  39.     RETUR╬ ¿ Speed_Up_Facto≥ ¬ Efficienc∙ » (Array_Sizσ ¡ 1))
  40. EN─ Effectiveness
  41.